home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_15.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.2 KB  |  49 lines
  1. on prepareFrame
  2.   global idle_time_limit, muzversion, ComputerSpeed
  3.   repeat with i = 1 to 120
  4.     set the visible of sprite i to 1
  5.   end repeat
  6.   if (muzversion = VOID) and (ComputerSpeed = 3) then
  7.     set muzversion to 1
  8.     set myFile to new(xtra("fileio"))
  9.     openFile(myFile, the moviePath & "idletime.txt", 1)
  10.     set theFile to readFile(myFile)
  11.     closeFile(myFile)
  12.     set myFile to 0
  13.     set timestring to theFile
  14.     set idle_time_limit to 60 * word 1 of timestring
  15.   else
  16.     if muzversion = VOID then
  17.       set muzversion to 0
  18.       set idle_time_limit to 0
  19.     end if
  20.   end if
  21.   cursor(200)
  22.   if ComputerSpeed = 2 then
  23.     set ComputerSpeed to 4
  24.   end if
  25. end
  26.  
  27. on exitFrame
  28.   global skip_intro, ComputerSpeed
  29.   setUpAll()
  30.   if the freeBytes > (16 * 1024 * 1024) then
  31.   end if
  32.   if the freeBytes > (32 * 1024 * 1024) then
  33.   end if
  34.   if the freeBytes > (32 * 1024 * 1024) then
  35.   end if
  36.   set the directToStage of member "sunmove" to 0
  37.   set the pausedAtStart of member "sunmove" to 0
  38.   ClrCursorS()
  39.   MYPreload(label("skipped"), label("ulStart"))
  40.   if ComputerSpeed >= 3 then
  41.     set skip_intro to 1
  42.   end if
  43.   if skip_intro <> 0 then
  44.     go("mmstart")
  45.   else
  46.     go("mac_intro")
  47.   end if
  48. end
  49.